(SETQ BASE (SETQ IBASE 12))

(SETQ STATCON (QUOTE (POPULATION TRAFFIC-DEATHS ASSS MAP3)))

[SETQ POPULATION (QUOTE (
MAINE 1012
NH 758
VT 454
MASS 5762
RI 959
CONN 3068
NY 18349
NJ 7305
PA 11901
OHIO 10739
IND 5244
ILL 11182
MICH 8906
WIS 4473
MINN 3860
IOWA 2860
MO 4717
NDAK 628
SDAK 674
NEBR 1508
KANSAS 2257
DEL 559
MD 4007
DC 748
VA 4720
WVA 1781
NC 5158
SC 2665
GA 4720
FLA 7259
KY 3276
TENN 4031
ALA 3487
MISS 2250
ARK 1951
LA 3693
OKLA 2600
TEX 11649
MONT 710
IDAHO 737
WYO 339
COLO 2277
NMEX 1065
ARIZ 1945
UTAH 1126
NEV 527
WASH 3443
OREG 2182
CALIF 20468
ALASKA 325
HAWAII 809
))]

[SETQ TRAFFIC-DEATHS (QUOTE (
ALA 1386
ALASKA 73
ARIZ 763
ARK 590
CALIF 5288
COLO 673
CONN 401
DEL 136
DC 133
FLA 2141
GA 1835
HAWAII 148
IDAHO 321
ILL 2516
IND 1705
IOWA 820
KANSAS 769
KY 1078
LA 1151
MAINE 266
MD 779
MASS 915
MICH 2413
MINN 1018
MISS 914
MO 1556
MONT 338
NEBR 443
NEV 246
NH 191
NJ 1243
NMEX 566
NY 3127
NDAK 201
OHIO 2702
OKLA 846
OREG 729
PA 2465
RI 147
SC 1001
SDAK 297
TENN 1500
TEX 3584
UTAH 324
VT 127
VA 1305
WASH 863
WVA 550
WIS 1136
WYO 231
))]

[DE ASSS (X U) (COND ((NULL U)(ERROR @(END-OF-LIST - ASSS)))
((EQ (CAR U) X) (CADR U)) (T (ASSS X (CDDR U))))]

[DE MAP3 (U FN) (COND ((NULL U) NIL) (T (CONS (FN U) (MAP3 (CDDR U) FN))))]

[SETQ DEATHS-PER-UNIT-POPULATION (MAP3 TRAFFIC-DEATHS (FUNCTION
(LAMBDA (V) (LIST (CAR V) (QUOTIENT (PLUS 0.0 (CADR V))
(ASSS (CAR V) POPULATION))))))]